home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1100.dms / q1100.adf / TeleBASE / rexx / tb.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-10  |  300b  |  17 lines
  1. /* Test Telebase */
  2.  
  3. call addlib 'rexxsupport.library', 0, -30, 0
  4.  
  5. /*  getargs Make this work... eh? */
  6.  
  7. do forever
  8.    compress(FNAME)
  9.    len = length(argument)
  10.    res = compare(left(FNAME,len), left(argument, len) )
  11.  
  12.    if res = 0 then TAG
  13.    NEXT
  14.    GetVar
  15.    if recordnum=numrecords then exit
  16. END
  17.